 type
   RegisterFunct   = function: HResult stdcall;

 var
   MyLib  : THandle;
   fReg     : RegisterFunct;
 begin

   MyLib:= LoadLibrary('C:\MYPROG\SOFTLIB.DLL');

   fReg:= GetProcAddress(MyOCX, 'DllRegisterServer');
 
   if fReg() <> 0 then ShowMessage('Error')
   else ShowMessage('Successfull') 
  
   FreeLibrary(MyLib);
 end;
